home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / forms / vpfade / vpfade.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-01-03  |  2.0 KB  |  71 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    BackColor       =   &H00FFFFFF&
  4.    Caption         =   "(c) V.Pozharov 1994"
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1050
  7.    ClientTop       =   1695
  8.    ClientWidth     =   7365
  9.    DrawStyle       =   5  'Transparent
  10.    ForeColor       =   &H00000000&
  11.    Height          =   4425
  12.    Left            =   990
  13.    LinkTopic       =   "Form1"
  14.    ScaleHeight     =   268
  15.    ScaleMode       =   3  'Pixel
  16.    ScaleWidth      =   491
  17.    Top             =   1350
  18.    Width           =   7485
  19.    Begin PictureBox Picture1 
  20.       BackColor       =   &H00C0C0C0&
  21.       BorderStyle     =   0  'None
  22.       Height          =   585
  23.       Index           =   1
  24.       Left            =   6255
  25.       Picture         =   VPFADE.FRX:0000
  26.       ScaleHeight     =   585
  27.       ScaleWidth      =   945
  28.       TabIndex        =   0
  29.       Top             =   2625
  30.       Width           =   945
  31.    End
  32.    Begin Image Image1 
  33.       Height          =   585
  34.       Index           =   1
  35.       Left            =   6255
  36.       Picture         =   VPFADE.FRX:055A
  37.       Top             =   2625
  38.       Visible         =   0   'False
  39.       Width           =   945
  40.    End
  41. Option Explicit
  42. Sub Form_Click ()
  43.  Dim I%, J%, K%
  44.     I% = Int(16 * Rnd)
  45.     InitialColor = QBColor(I%)
  46.    Do
  47.     J% = Int(16 * Rnd)
  48.    Loop Until J% <> I%
  49.     FinalColor = QBColor(J%)
  50.     Call CalcSetka
  51.     Call DrawForm(Me)
  52. End Sub
  53. Sub Form_Load ()
  54.     Call CalcSetka
  55.     Form_Paint
  56. End Sub
  57. Sub Form_Paint ()
  58.     Call DrawForm(Me)
  59. End Sub
  60. Sub Form_Resize ()
  61.     'Call Form_Paint
  62.     Picture1(1).Top = Form1.ScaleHeight - 50
  63.     Picture1(1).Left = Form1.ScaleWidth - 70
  64. End Sub
  65. Sub Picture1_MouseDown (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  66. Picture1(Index).Picture = Image1(Index).Picture
  67. End Sub
  68. Sub Picture1_MouseUp (Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
  69.     End
  70. End Sub
  71.